function [ValueResult1,ValueResult2]=checkAuthorsNature(ValueAuthor,n2,ValueDate,VecSpecialCharacters,ValueTime,ValueFilter)

ValueYear=ValueDate{1,1};
ValueYearTemp=str2num(ValueYear);
ValueMonth=ValueDate{1,2};
VecValueDateTemp={'Jan' 'Feb' 'Mar' 'Apr' 'May' 'Jun' 'Jul' 'Aug' 'Sep' 'Oct' 'Nov' 'Dec'};
if size(ValueMonth,2)>=1
    ValueMonthTemp=str2num(ValueMonth);
    if size(ValueMonthTemp,2)==0
        n61=1;
        TestTemp3=0;
        while n61<=12&&TestTemp3==0
            if strcmpi(ValueMonth,VecValueDateTemp{1,n61})==1
                ValueMonthTemp=n61;
                TestTemp3=1;
            end
            n61=n61+1;
        end
    end
else
    ValueMonthTemp=NaN;
end
ValueDay=ValueDate{1,3};
if size(ValueDay,2)>=1
    ValueDayTemp=str2num(ValueDay);
else
    ValueDayTemp=NaN;
end
ValueFolderTemp='/sps/isc/rneveu/EtudeIRM/Nature/ResultsJournal/';

VecNArticle2=zeros(1,13);
VecNArticle=zeros(1,13);
for n1=1:33
    if ValueFilter==0
        ValueFile=['ResultsJournalTemp' num2str(n1) '.mat'];
    else
        ValueFile=['ResultsJournalTempFiltered' num2str(n1) '.mat'];
    end
    load([ValueFolderTemp ValueFile]);
    VecTemp=VecResults;
    n4=1;
    TestTemp=0;
    while n4<=size(VecTemp,1)&&TestTemp==0
        ValueTemp2=VecTemp{n4,1};
        TestTemp2=0;
        n52=2;
        while n52<=7&&TestTemp2==0
            ValueTemp3=VecTemp{n4,n52};
            if size(ValueTemp3,1)==0
                TestTemp2=1;
            end
            n52=n52+1;
        end
        if TestTemp2==0
            if strcmps(ValueTemp2,ValueAuthor,VecSpecialCharacters)>=0.99
                ValueTemp5=VecTemp{n4,7};
                ValueTemp5Temp=ValueTemp5;
                ValueTemp31=VecTemp{n4,3};
                ValueTemp32=VecTemp{n4,4};
                ValueTemp33=VecTemp{n4,5};
                TestTemp=1;
                ValueDateTemp2=find(ValueTemp5(:,1)<ValueYearTemp);
                ValueDateTemp3=find(ValueTemp5(:,1)==ValueYearTemp);
                ValueTemp35=isnan(ValueTemp5(:,2));
                ValueTemp34=find(ValueTemp35==1);
                ValueTemp5(ValueTemp34,2)=100*ones(size(ValueTemp34,1),1);
                ValueTemp35=isnan(ValueTemp5(:,3));
                ValueTemp34=find(ValueTemp35==1);
                ValueTemp5(ValueTemp34,3)=100*ones(size(ValueTemp34,1),1);
                ValueDateTemp5=[];
                if size(ValueDateTemp3,1)>=1
                    ValueDateTemp3=find(ValueTemp5(:,1)==ValueYearTemp&ValueTemp5(:,2)<ValueMonthTemp);
                    ValueDateTemp4=find(ValueTemp5(:,1)==ValueYearTemp&ValueTemp5(:,2)==ValueMonthTemp);
                    if size(ValueDateTemp4,1)>=1
                        ValueDateTemp5=find(ValueTemp5(:,1)==ValueYearTemp&ValueTemp5(:,2)==ValueMonthTemp&ValueTemp5(:,3)<ValueDayTemp);
                    end
                end
                ValueDateTemp2=[ValueDateTemp2;ValueDateTemp3;ValueDateTemp5];
                if size(ValueDateTemp2,1)>=1
                    if ValueTime>=1
                        ValueTemp35=isnan(ValueTemp5Temp(:,2));
                        ValueTemp34=find(ValueTemp35==1);
                        ValueTemp5Temp(ValueTemp34,2)=ones(size(ValueTemp34,1),1);
                        ValueTemp35=isnan(ValueTemp5Temp(:,3));
                        ValueTemp34=find(ValueTemp35==1);
                        ValueTemp5Temp(ValueTemp34,3)=ones(size(ValueTemp34,1),1);
                        ValueTemp5Temp2=ValueTemp5Temp(ValueDateTemp2,:);
                        ValueTemp5Temp3=datenum(ValueTemp5Temp2(:,1),ValueTemp5Temp2(:,2),ValueTemp5Temp2(:,3));
                        if isnan(ValueMonthTemp)==0
                            ValueReferenceTime=datenum(ValueYearTemp,ValueMonthTemp,1);
                        else
                            ValueReferenceTime=datenum(ValueYearTemp,1,1);
                        end
                        ValueTemp5Temp6=find(ValueReferenceTime-ValueTemp5Temp3(:,1)<=ValueTime*365.25&ValueReferenceTime-ValueTemp5Temp3(:,1)>=0);
                    end
                    if ValueTime==0
                        if n1==n2
                            VecNArticle(1,1:4)=VecNArticle(1,1:4)+sum(ValueTemp31(ValueDateTemp2,2:5),1);
                            VecNArticle(1,5:8)=VecNArticle(1,5:8)+sum(ValueTemp32(ValueDateTemp2,2:5),1);
                            VecNArticle(1,9:12)=VecNArticle(1,9:12)+sum(ValueTemp33(ValueDateTemp2,2:5),1);
                            VecNArticle(1,13)=VecNArticle(1,13)+size(ValueDateTemp2,1);
                        end
                        VecNArticle2(1,1:4)=VecNArticle2(1,1:4)+sum(ValueTemp31(ValueDateTemp2,2:5),1);
                        VecNArticle2(1,5:8)=VecNArticle2(1,5:8)+sum(ValueTemp32(ValueDateTemp2,2:5),1);
                        VecNArticle2(1,9:12)=VecNArticle2(1,9:12)+sum(ValueTemp33(ValueDateTemp2,2:5),1);
                        VecNArticle2(1,13)=VecNArticle2(1,13)+size(ValueDateTemp2,1);
                    else
                        if n1==n2
                            VecNArticle(1,1:4)=VecNArticle(1,1:4)+sum(ValueTemp31(ValueDateTemp2(ValueTemp5Temp6,1),2:5),1);
                            VecNArticle(1,5:8)=VecNArticle(1,5:8)+sum(ValueTemp32(ValueDateTemp2(ValueTemp5Temp6,1),2:5),1);
                            VecNArticle(1,9:12)=VecNArticle(1,9:12)+sum(ValueTemp33(ValueDateTemp2(ValueTemp5Temp6,1),2:5),1);
                            VecNArticle(1,13)=VecNArticle(1,13)+size(ValueTemp5Temp6,1);
                        end
                        VecNArticle2(1,1:4)=VecNArticle2(1,1:4)+sum(ValueTemp31(ValueDateTemp2(ValueTemp5Temp6,1),2:5),1);
                        VecNArticle2(1,5:8)=VecNArticle2(1,5:8)+sum(ValueTemp32(ValueDateTemp2(ValueTemp5Temp6,1),2:5),1);
                        VecNArticle2(1,9:12)=VecNArticle2(1,9:12)+sum(ValueTemp33(ValueDateTemp2(ValueTemp5Temp6,1),2:5),1);
                        VecNArticle2(1,13)=VecNArticle2(1,13)+size(ValueTemp5Temp6,1);
                    end
                end
            end
        end
        n4=n4+1;
    end
end
ValueResult1=VecNArticle;
ValueResult2=VecNArticle2;
            

